home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8192 < prev    next >
Text File  |  1993-10-08  |  2KB  |  143 lines
  1. %%BeginFile: adobe_psp_basic
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /bd{bind def}bind def
  4. /xdf{exch def}bd
  5. /xs{exch store}bd
  6. /ld{load def}bd
  7. /Z{0 def}bd
  8. /T/true
  9. /F/false
  10. /:L/lineto
  11. /lw/setlinewidth
  12. /:M/moveto
  13. /rl/rlineto
  14. /rm/rmoveto
  15. /:C/curveto
  16. /:T/translate
  17. /:K/closepath
  18. /:mf/makefont
  19. /gS/gsave
  20. /gR/grestore
  21. /np/newpath
  22. 14{ld}repeat
  23. /$m matrix def
  24. /av 81 def
  25. /por true def
  26. /normland false def
  27. /psb-nosave{}bd
  28. /pse-nosave{}bd
  29. /us Z
  30. /psb{/us save store}bd
  31. /pse{us restore}bd
  32. /level2
  33. /languagelevel where
  34. {
  35. pop languagelevel 2 ge
  36. }{
  37. false
  38. }ifelse
  39. def
  40. /featurecleanup
  41. {
  42. stopped
  43. cleartomark
  44. countdictstack exch sub dup 0 gt
  45. {
  46. {end}repeat
  47. }{
  48. pop
  49. }ifelse
  50. }bd
  51. /noload Z
  52. /startnoload
  53. {
  54. {/noload save store}if
  55. }bd
  56. /endnoload
  57. {
  58. {noload restore}if
  59. }bd
  60. level2 startnoload
  61. /setjob
  62. {
  63. statusdict/jobname 3 -1 roll put
  64. }bd
  65. /setcopies
  66. {
  67. userdict/#copies 3 -1 roll put
  68. }bd
  69. level2 endnoload level2 not startnoload
  70. /setjob
  71. {
  72. 1 dict begin/JobName xdf currentdict end setuserparams
  73. }bd
  74. /setcopies
  75. {
  76. 1 dict begin/NumCopies xdf currentdict end setpagedevice
  77. }bd
  78. level2 not endnoload
  79. /pm Z
  80. /mT Z
  81. /sD Z
  82. /realshowpage Z
  83. /initializepage
  84. {
  85. /pm save store mT concat
  86. }bd
  87. /endp
  88. {
  89. pm restore showpage
  90. }def
  91. /$c/DeviceRGB def
  92. /rectclip where
  93. {
  94. pop/rC/rectclip ld
  95. }{
  96. /rC
  97. {
  98. np 4 2 roll
  99. :M
  100. 1 index 0 rl
  101. 0 exch rl
  102. neg 0 rl
  103. :K
  104. clip np
  105. }bd
  106. }ifelse
  107. /rectfill where
  108. {
  109. pop/rF/rectfill ld
  110. }{
  111. /rF
  112. {
  113. gS
  114. np
  115. 4 2 roll
  116. :M
  117. 1 index 0 rl
  118. 0 exch rl
  119. neg 0 rl
  120. fill
  121. gR
  122. }bd
  123. }ifelse
  124. /rectstroke where
  125. {
  126. pop/rS/rectstroke ld
  127. }{
  128. /rS
  129. {
  130. gS
  131. np
  132. 4 2 roll
  133. :M
  134. 1 index 0 rl
  135. 0 exch rl
  136. neg 0 rl
  137. :K
  138. stroke
  139. gR
  140. }bd
  141. }ifelse
  142. %%EndFile
  143.